﻿Imports DebugVisualizer
Public Class Form1

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim cmd As New SqlClient.SqlCommand
        cmd.CommandText = "SELECT * FROM TEst Where Id =@ID"
        cmd.Parameters.AddWithValue("@ID", 1)
        Visualizers.DBCommandVisualizer.TestShowVisualizer(cmd)
    End Sub

    Private Interface Itest
        Property Name As String
    End Interface

    Private Class test
        Implements Itest
        Property Name As String Implements Itest.Name
        Property ID As Integer
    End Class

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim lst As New List(Of test)
        lst.Add(New test With {.ID = 10})
        lst.Add(New test With {.Name = "AI"})
        lst.Add(New test With {.Name = "BI", .ID = 30})
        Visualizers.ListVisualizer.TestShow(lst)
    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Dim i As New List(Of Integer)
        i.Add(10)
        i.Add(10)
        i.Add(10)
        i.Add(10)
        Visualizers.ListVisualizer.TestShow(i)

        Dim st As New List(Of String)
        st.Add("HI")
        st.Add("HI")
        st.Add("HI")
        st.Add("HI")
        Visualizers.ListVisualizer.TestShow(st)


        Dim lst As New List(Of Itest)
        Visualizers.ListVisualizer.TestShow(lst)
        lst.Add(New test With {.ID = 10})
        lst.Add(New test With {.Name = "AI"})
        lst.Add(New test With {.Name = "BI", .ID = 30})
        Visualizers.ListVisualizer.TestShow(lst)

        Dim x As New List(Of AccessibleRole)
        x.Add(Windows.Forms.AccessibleRole.Animation)
        x.Add(Windows.Forms.AccessibleRole.Alert)
        x.Add(Windows.Forms.AccessibleRole.Border)
        Visualizers.ListVisualizer.TestShow(x)

        Dim Ar() As Integer = {10, 22, 33, 54}
        Visualizers.ListVisualizer.TestShow(Ar)


    End Sub

    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        Dim fn As New Font("Arial", 16)
        Visualizers.FontVisualizer.TestFont(fn)

    End Sub
End Class
